home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / automa_1 / frmwait.frm < prev    next >
Text File  |  1999-08-23  |  1KB  |  43 lines
  1. VERSION 5.00
  2. Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.0#0"; "COMCT232.OCX"
  3. Begin VB.Form frmWait 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Connecting to Server, please wait......"
  6.    ClientHeight    =   1575
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   5970
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1575
  14.    ScaleWidth      =   5970
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin ComCtl2.Animation Animation1 
  18.       Height          =   855
  19.       Left            =   2160
  20.       TabIndex        =   0
  21.       Top             =   360
  22.       Width           =   1575
  23.       _ExtentX        =   2778
  24.       _ExtentY        =   1508
  25.       _Version        =   327680
  26.       FullWidth       =   105
  27.       FullHeight      =   57
  28.    End
  29. End
  30. Attribute VB_Name = "frmWait"
  31. Attribute VB_GlobalNameSpace = False
  32. Attribute VB_Creatable = False
  33. Attribute VB_PredeclaredId = True
  34. Attribute VB_Exposed = False
  35. Private Sub Form_Load()
  36. Animation1.AutoPlay = True
  37. Animation1.open (App.Path & "/graphics/Search.avi")
  38. Animation1.Play 1000000, 1
  39.  
  40. End Sub
  41.  
  42.  
  43.